home *** CD-ROM | disk | FTP | other *** search
/ The 50th Anniversary of …National Assembly Library / The 50th Anniversary of the National Assembly Library.iso / main.dxr / 00117.ls < prev    next >
Encoding:
Text File  |  2002-02-18  |  824 b   |  31 lines
  1. property mys, x, y, z, mywidth, myheight, xadd, yadd, zadd, rx, ry, rz, mymember, mdown, this
  2. global scale, xoff, yoff, zoff, gwind
  3.  
  4. on exitFrame
  5.   gwind = gwind + random(10000) + [1, -1][random(2)]
  6.   if abs(gwind) > 10 then
  7.     gwind = 2
  8.   end if
  9.   go(the frame)
  10.   if y < -1000 then
  11.     y = random(100) + yoff + 500
  12.     mdown = random(5) + 3
  13.     x = random(1000) * getAt(list(1, -1), random(2))
  14.     z = random(700)
  15.     this = z / 100
  16.   end if
  17.   x = x + sin(this)
  18.   this = this + 0.01
  19.   y = y - mdown
  20.   mz = z + zoff + zadd
  21.   if mz = 0 then
  22.     mz = 0.00000001
  23.   end if
  24.   xp = x * scale / mz
  25.   yp = y * scale / mz
  26.   set the locH of sprite mys to xp + xoff
  27.   set the locV of sprite mys to yoff - yp
  28.   set the width of sprite mys to mywidth * scale / mz * 1.5
  29.   set the height of sprite mys to myheight * scale / mz * 1.5
  30. end
  31.